home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / popmse.arc / POPMOUSE.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-08-22  |  1.9 KB  |  66 lines
  1.   KEY OFF: COLOR 7,1: CLS
  2.   DIM SCRN%(2000),ITEMS$(5,6),PROMPTS$(6)
  3.   DIM L%(5)
  4.   LOCATE 8,10: PRINT "This is POPMOUSE - A routine used to select options from"
  5.   LOCATE 9,10: PRINT "several menu windows using the cursor keys or the mouse to"
  6.   LOCATE 10,10: PRINT "move a 'select bar'.  Selection is made by the Enter key"
  7.   LOCATE 11,10: PRINT "or the left mouse button."
  8.  
  9.   SECONDS=7: GOSUB WAITSEC
  10.  
  11.  
  12.   ITEMS$(0,1)="  Demo Lists        ": L%(0)=6: PROMPTS$(0)="Select Demo ..."
  13.   ITEMS$(0,2)="  Demo Directories  "
  14.   ITEMS$(0,3)="  Demo Menus        "
  15.   ITEMS$(0,4)="  Demo Calendars    "
  16.   ITEMS$(0,5)="  Demo Warnings     "
  17.   ITEMS$(0,6)="  End Demo          "
  18.   ITEMS$(1,1)="  POPLIST  ": L%(1)=2: PROMPTS$(1)="Select List ..."
  19.   ITEMS$(1,2)="  TAGLIST  "
  20.   ITEMS$(2,1)="  POPDIR  ": L%(2)=2: PROMPTS$(2)="Select Directory ..."
  21.   ITEMS$(2,2)="  TAGDIR  "
  22.   ITEMS$(3,1)="  BARMENU  ": L%(3)=2: PROMPTS$(3)="Select Memo ..."
  23.   ITEMS$(3,2)="  MENU123  "
  24.   ITEMS$(4,1)="  CALENDAR  ": L%(4)=3: PROMPTS$(4)="Select Calendar..."
  25.   ITEMS$(4,2)="  CALENDR3  "
  26.   ITEMS$(4,3)="  KEYCAL    "
  27.   ITEMS$(5,1)="  CAUTION  ": L%(5)=2: PROMPTS$(5)="Select Flag ..."
  28.   ITEMS$(5,2)="  WARNING  "
  29.  
  30. DEMO:         
  31.   SET%=CHOICE%: GOSUB DOCHOICE
  32.   IF CHOICE%=0 or choice%=6 THEN GOTO ENDIT
  33.   GOTO DEMO
  34.  
  35. DOCHOICE:
  36.   CALL POPMOUSE(PROMPTS$(SET%),L%(SET%),SET%,ITEMS$(),4,0,7,15,1,"0",1,CHOICE%)
  37.  
  38.   LOCATE 21,10
  39.   PRINT "For set:";SET%;";"
  40.   LOCATE 22,10
  41.   PRINT "The Item Number you selected was";CHOICE%;ITEMS$(SET%,CHOICE%)
  42.   IF CHOICE%=0 OR CHOICE%=6 GOTO CLRMSG
  43.   LOCATE 23,10
  44.   PRINT "To end demo, press ESC key or right mouse button"
  45.  
  46.   SECONDS=5: GOSUB WAITSEC
  47.  
  48. CLRMSG:
  49.     LOCATE 21,10: CALL CLREOL
  50.     LOCATE 22,10: CALL CLREOL
  51.     LOCATE 23,10: CALL CLREOL
  52.  
  53.   RETURN
  54.  
  55. ENDIT:
  56.     SECONDS=5: GOSUB WAITSEC
  57.   COLOR 7,1: CLS
  58.  
  59.   END
  60.  
  61. WAITSEC:         begintime=timer
  62.   WHILE ENDTIME < BEGINTIME+SECONDS
  63.     ENDTIME=TIMER
  64.   WEND
  65.   RETURN
  66.